home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wc15_b.arc / COMPUSER.WMS < prev    next >
Text File  |  1991-03-22  |  865b  |  62 lines
  1. ; Compuserve auto logon using session strings                                 
  2.  
  3. OPEN("compuser.WSF","",1)
  4.  
  5. START
  6.  
  7. DO UNTIL(ONLINE?==1)
  8.  
  9. i = TIME? + 2
  10. DO UNTIL(TIME?>i)
  11.  
  12. times = 0
  13. SEND("^C")
  14.  
  15. AGAIN:
  16. PROMPT
  17.   PSTR(2,1,"^^C")
  18.   PWAIT(2,200)
  19. PEND
  20. DO i=PROMPT? UNTIL(i !=0)
  21.  
  22. IF(i == 1)GOTO NEXT
  23. IF(i == 2)SEND("^C")
  24. times = times+1
  25. IF(times > 1){
  26.   ALERT("Compuserve Logon Unsuccessful.  Try again later.")
  27.   HALT
  28. }
  29. GOTO AGAIN
  30.  
  31. SEND("^C")
  32.  
  33. NEXT:
  34.  
  35. PROMPT
  36.   PSTR(2,1,"ID:")
  37.   PSTR(2,2,"Password")
  38.   PSTR(2,3,"Copyright")
  39.   PWAIT(4,3000)
  40. PEND
  41.  
  42. DO i=PROMPT? UNTIL(i !=0)
  43.  
  44. IF(I == 1){
  45. SEND(GETSESSSTR(4)+"^M")
  46. GOTO NEXT
  47. }
  48. IF(I == 2){
  49. SEND(GETSESSSTR(3)+"^M")
  50. GOTO NEXT
  51. }
  52. IF(I == 3){
  53. text$ = "Now connected to compuserve"
  54. HALT
  55. }
  56. IF(I == 4){
  57.   ALERT("Compuserve Logon Unsuccessful.  Try again later.")
  58.   HALT
  59. }
  60.  
  61. END
  62.